﻿Public Class Trabajo

    Dim ocdTrabajo As New Datos.Trabajo()

    Public Sub RegistrarTF(ByVal paramExp As String, ByVal paramTrabajo As String, ByVal paramDniAlumno As String, ByVal paramDniGuia As String, ByVal paramDniAsesor As String, ByVal paramFecha As DateTime, ByVal paramExamen As DateTime, ByVal paramPlan As String)
        ocdTrabajo.RegistrarTF(paramExp, paramTrabajo, paramDniAlumno, paramDniGuia, paramDniAsesor, paramFecha, paramExamen, paramPlan)
    End Sub

    Public Sub RegistrarCAL(ByVal paramExp As String, ByVal paramNroResolucion As String, ByVal paramFecha As DateTime)
        ocdTrabajo.RegistrarCAL(paramExp, paramNroResolucion, paramFecha)
    End Sub

    Public Sub RegistrarProfesorNota(ByVal paramExp As String, ByVal paramProfesor As String)
        ocdTrabajo.RegistrarProfesorNota(paramExp, paramProfesor)
    End Sub

    Public Sub RegistrarAN(ByVal paramExp As String, ByVal paramNroResolucion As String, ByVal paramFecha As DateTime)
        ocdTrabajo.RegistrarAN(paramExp, paramNroResolucion, paramFecha)
    End Sub

    Public Sub RegistrarATF(ByVal paramExp As String, ByVal paramNroResolucion As String, ByVal paramFecha As DateTime)
        ocdTrabajo.RegistrarATF(paramExp, paramNroResolucion, paramFecha)
    End Sub

    Public Function obtenerTrabajosAprobados(ByVal fechaDesde As String, ByVal fechaHasta As String) As DataSet
        Dim ds As New DataSet()
        ds = ocdTrabajo.obtenerTrabajosAprobados(fechaDesde, fechaHasta)
        Return ds
    End Function

    Public Function obtenerTrabajoExpediente(ByVal nroExpediente As String) As DataSet
        Dim ds As New DataSet()
        ds = ocdTrabajo.obtenerTrabajoExpediente(nroExpediente)
        Return ds
    End Function
    Public Function obtenerTrabajoAprobadoExpediente(ByVal nroExpediente As String) As DataSet
        Dim ds As New DataSet()
        ds = ocdTrabajo.obtenerTrabajoAprobadoExpediente(nroExpediente)
        Return ds
    End Function

    Public Function obtenerNotaExpediente(ByVal nroExpediente As String) As DataSet
        Dim ds As New DataSet()
        ds = ocdTrabajo.obtenerNotaExpediente(nroExpediente)
        Return ds
    End Function

    Public Function obtenerEgresados(ByVal fechaDesde As String, ByVal fechaHasta As String) As DataSet
        Dim ds As New DataSet()
        ds = ocdTrabajo.obtenerEgresados(fechaDesde, fechaHasta)
        Return ds
    End Function



End Class
